home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / mui / MCC_Busy2_4.lha / MCC_Busy / MCC_Busy-Install < prev    next >
Encoding:
Text File  |  1997-07-24  |  1.5 KB  |  58 lines
  1. ; $VER: MTP installer script 0.3
  2. ; (c) 1996.97 by kMel, Klaus Melchior
  3.  
  4. (set #app_name "MCC_Busy")
  5. (set #version "2.4")
  6. (set #vers_name (cat #app_name " " #version))
  7.  
  8. (set #bad_MUI_text "You must even be using MUI 3.2 to use Busy.mcc!")
  9. (set #info_text "This script installs the Busy.mcc classes to\n'MUI:Libs/mui/'\n\n")
  10.  
  11. ; -------------------------------------------------------------------------
  12.  
  13. (transcript (cat "Installing " #vers_name " ..."))
  14.  
  15. (if (= 0 (exists "MUI:" (noreq))) (abort bad_MUI_text))
  16. (set #MUI_ver (getversion "MUI:Libs/muimaster.library"))
  17. (if (AND (< #MUI_ver (* 13 65536)) (<> #MUI_ver 0)) (abort #bad_MUI_text))
  18.  
  19. ; -------------------------------------------------------------------------
  20.  
  21. (procedure P_CopyClass
  22.  
  23.     (complete #complete_level)
  24.     (set #complete_level (+ #complete_level #complete_level_add))
  25.  
  26.     (copylib
  27.         (prompt (cat "Copying " #class))
  28.         (confirm)
  29.         (source (cat #src_path #class))
  30.         (dest #dst_path)
  31.         (help @copylib-help)
  32.     )
  33.  
  34. )
  35.  
  36.  
  37. ; -------------------------------------------------------------------------
  38. (complete 0)
  39.  
  40. (message #info_text)
  41.  
  42. ; -------------------------------------------------------------------------
  43. (set #complete_level 20)
  44. (set #complete_level_add 20)
  45.  
  46. (set #src_path "Libs/MUI/")
  47. (set #dst_path "MUI:Libs/mui/")
  48.  
  49. (set #class "Busy.mcc")       (P_CopyClass)
  50. (set #class "Busy.mcp")       (P_CopyClass)
  51.  
  52. ; -------------------------------------------------------------------------
  53. (complete 100)
  54.  
  55. (exit "Installation complete!" (quiet))
  56.  
  57.  
  58.